home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / mebbs / stardate.lha / StarDate.rexx < prev   
OS/2 REXX Batch file  |  1994-08-05  |  851b  |  37 lines
  1. /* StarDate (starTrek) For MEBBSNet v0.155 and above */
  2.  
  3. parse arg LineNumber
  4. signal on ERROR
  5.  
  6. options results
  7.  
  8. DoorName = "StarDate"
  9.  
  10. if( ~show( 'l', "mebbsarexx.library" ) )then do
  11.    say "Opening mebbsarexx.library"
  12.     if( ~addlib( "mebbsarexx.library", 0, -30, 0 ) )then do
  13.       say "Could not open library"
  14.       exit 10
  15.    end
  16. end
  17.  
  18. string = ""
  19. call output ; string = "StarDate Generator (c) Mikael Johansson Active/MEBBSNet Dev. M6005"
  20. call output ; string = ""
  21. call output ; string = "StarDate: "trunc((date(basedate)-718067)*9.6+Time('m')/150,1)
  22. call output ; string = ""
  23. call output
  24.  
  25. call HotKey DoorName,LineNumber,"Press any key "
  26.  
  27. call Exit_Door DoorName,LineNumber
  28. exit 0
  29.  
  30. ERROR:
  31. call Exit_Door DoorName,LineNumber
  32. exit 10
  33.  
  34. output:                                  
  35. call message DoorName,LineNumber,string,1
  36. return
  37.